#!/usr/bin/perl -w
# Eg,  $ for f in dir/*.html; do echo $f; ./extract.pl $f > ${f%html}txt; done
# This works for both performance and item reports.
my $inTable = 0;
while (<>) {
  $inTable = 1 if /id="mcasGridView"/;
  if ($inTable) {
    if (s/<td[^>]*>/\t/g) {
      s/<\/td>//g;
      s/\s+//;
      if (/\t/) {
        print;
      }
    }
  }
}
